Komputer for Alle 1998 #6/1998 CD 6 (Gul).iso/main.dir/00337.ls

Text File | 1996-02-08 | 769 b | 30 lines

on returnUpdate
  global gNextCast, gDest, gReturnState, gForceClick, gStarChannel, gPanelChannel
  set starNum to integer(char 6 of gNextCast) - 1
  if starNum = 0 then
    set starNum to 1
  end if
  set testCast to gDest & "star" & starNum
  if the number of cast testCast = -1 then
    updateDest(gDest)
  else
    set whatNow to line gDest of field "panelHandlers"
    set gForceClick to gDest + gPanelChannel - 1
    updateDest(gDest)
    do(whatNow)
  end if
  set gReturnState to 1
end

on playDir whatFrame, whatMovie
  global gReturnState, gNextCast
  set x to the name of cast the castNum of sprite the clickOn
  if x = "continue" then
    set x to gNextCast
  end if
  setNextCast(x)
  set gReturnState to 1
  go(whatFrame, whatMovie)
  dontPassEvent()
end